﻿
Public Module _returnValue

    Public Enum returnValue
        overtime = 0
        fail = 1
        success = -1
    End Enum

    Public Function returnValueDescription(ByVal rtn As returnValue) As String
        Select Case rtn
            Case returnValue.overtime
                Return "IO/operation overtime"
            Case returnValue.fail
                Return "general fail"
            Case returnValue.success
                Return "success"
            Case Else
                Return "undefined error"
        End Select
    End Function

End Module
